home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / SaveMessageAsIs.zprx < prev    next >
Text File  |  1995-03-09  |  358b  |  18 lines
  1. /* SaveMessageAsIs.zprx 1.0 (25.10.94) Copyright (c) Ralph Seichter */
  2.  
  3. parse arg zp
  4. options results
  5. address value zp
  6.  
  7. tmp = 'T:x'
  8. requeststring '"_Nachricht speichern als:" DEFAULT 'tmp
  9. tmp = RESULT
  10. if tmp = '' then
  11.     exit 0
  12. address command 'Delete >NIL: 'tmp
  13. savemessageasis tmp
  14. if ~RC then
  15.     requestnotify 'Kann Nachricht nicht speichern!'
  16.  
  17. /* EOF */
  18.